home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / _READ_IT.PRG < prev    next >
Text File  |  1993-05-04  |  586b  |  24 lines
  1. PROCEDURE _Read_it
  2. *-------------------------------------------------------------------------------
  3. * NAME
  4. *   _Read_it - Issues READ with SET CURSOR control.
  5. *
  6. * SYNOPSIS
  7. *   DO _Read_it
  8. *
  9. * DESCRIPTION
  10. *   _Read_it SETs CURSOR ON, issues a READ, then SETs CURSOR OFF.
  11. *   It is useful in situations where SET CURSOR is OFF for
  12. *   aesthetic reasons.
  13. *
  14. * LIMITATIONS
  15. *   Assumes that SET CURSOR is OFF when called.
  16. *
  17. *-------------------------------------------------------------------------------
  18.  SET CURSOR ON
  19.  READ
  20.  SET CURSOR OFF
  21. RETURN
  22. *-- EOP:  _Read_it
  23.  
  24.